home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 1994 January / ARPL-Jan94-Disc1of2-Partner-Edition.iso / ARPL Info Center 1⁄94 Partner / ARPL Info Center 1_94 Partner / background_6025.xml < prev    next >
Encoding:
Extensible Markup Language  |  1993-12-18  |  6.6 KB  |  137 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>6025</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <true /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <true /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3119.css" />
  10.     <part>
  11.         <id>1</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>80</left>
  22.             <top>434</top>
  23.             <right>159</right>
  24.             <bottom>465</bottom>
  25.         </rect>
  26.         <style>transparent</style>
  27.         <showName> <false /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>0</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Chicago</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <name>Quit</name>
  39.         <script>on mouseUpLinkToQuitend mouseUp</script>
  40.     </part>
  41.     <part>
  42.         <id>2</id>
  43.         <type>button</type>
  44.         <visible> <true /> </visible>
  45.         <reserved5> 0 </reserved5>
  46.         <reserved4> 0 </reserved4>
  47.         <reserved3> 0 </reserved3>
  48.         <reserved2> 0 </reserved2>
  49.         <reserved1> 0 </reserved1>
  50.         <enabled> <true /> </enabled>
  51.         <rect>
  52.             <left>200</left>
  53.             <top>434</top>
  54.             <right>279</right>
  55.             <bottom>465</bottom>
  56.         </rect>
  57.         <style>transparent</style>
  58.         <showName> <false /> </showName>
  59.         <highlight> <false /> </highlight>
  60.         <autoHighlight> <true /> </autoHighlight>
  61.         <sharedHighlight> <true /> </sharedHighlight>
  62.         <family>0</family>
  63.         <titleWidth>0</titleWidth>
  64.         <icon>0</icon>
  65.         <textAlign>center</textAlign>
  66.         <font>Chicago</font>
  67.         <textSize>12</textSize>
  68.         <textStyle>plain</textStyle>
  69.         <name>Help</name>
  70.         <script>on mouseUpLinkToHelpend mouseUp</script>
  71.     </part>
  72.     <part>
  73.         <id>3</id>
  74.         <type>button</type>
  75.         <visible> <true /> </visible>
  76.         <reserved5> 0 </reserved5>
  77.         <reserved4> 0 </reserved4>
  78.         <reserved3> 0 </reserved3>
  79.         <reserved2> 0 </reserved2>
  80.         <reserved1> 0 </reserved1>
  81.         <enabled> <true /> </enabled>
  82.         <rect>
  83.             <left>80</left>
  84.             <top>397</top>
  85.             <right>279</right>
  86.             <bottom>428</bottom>
  87.         </rect>
  88.         <style>transparent</style>
  89.         <showName> <false /> </showName>
  90.         <highlight> <false /> </highlight>
  91.         <autoHighlight> <true /> </autoHighlight>
  92.         <sharedHighlight> <true /> </sharedHighlight>
  93.         <family>0</family>
  94.         <titleWidth>0</titleWidth>
  95.         <icon>0</icon>
  96.         <textAlign>center</textAlign>
  97.         <font>Chicago</font>
  98.         <textSize>12</textSize>
  99.         <textStyle>plain</textStyle>
  100.         <name>Main</name>
  101.         <script>on mouseUpLinkToMainend mouseUp</script>
  102.     </part>
  103.     <part>
  104.         <id>8</id>
  105.         <type>button</type>
  106.         <visible> <true /> </visible>
  107.         <reserved5> 0 </reserved5>
  108.         <reserved4> 0 </reserved4>
  109.         <reserved3> 0 </reserved3>
  110.         <reserved2> 0 </reserved2>
  111.         <reserved1> 0 </reserved1>
  112.         <enabled> <true /> </enabled>
  113.         <rect>
  114.             <left>130</left>
  115.             <top>179</top>
  116.             <right>228</right>
  117.             <bottom>283</bottom>
  118.         </rect>
  119.         <style>transparent</style>
  120.         <showName> <false /> </showName>
  121.         <highlight> <false /> </highlight>
  122.         <autoHighlight> <false /> </autoHighlight>
  123.         <sharedHighlight> <true /> </sharedHighlight>
  124.         <family>0</family>
  125.         <titleWidth>0</titleWidth>
  126.         <icon>0</icon>
  127.         <textAlign>center</textAlign>
  128.         <font>Chicago</font>
  129.         <textSize>12</textSize>
  130.         <textStyle>plain</textStyle>
  131.         <name>GuideLoc</name>
  132.         <script></script>
  133.     </part>
  134.     <name>Misc</name>
  135.     <script>on EditQtAttacheglobal gCurMoviePath,gCurDemoTitle,gQTAttacheList,gQTAttachePathsglobal qQTAtLtemp,qQTAtPtempput gQTAttacheList into qQTAtLtempput gQTAttachePaths into qQTAtPtempget windowScript("QuickTime Attache",qQTAtLtemp,1)put line 1 of it into theBtnif theBtn = "Cancel" or theBtn = "" then exit EditQtAttacheput qQTAtLtemp into gQTAttacheListput qQTAtPtemp into gQTAttachePathsend EditQtAttacheon DeleteFromQTAttacheglobal qQTAtLtemp,qQTAtPtempspinCursorget wsGet("QuickTime Attache",4,"Selection")delete line it of qQTAtLtempdelete line it of qQTAtPtempWriteQTAttachewsSet "QuickTime Attache",4,"Text",qQTAtLtempif qQTAtLtemp = "" thenwsSet "QuickTime Attache",7,"Disabled",trueend ifend DeleteFromQTAttacheon updateCount theNumglobal gPresFramesif theNum < 1 then put 1 into theNumput theNum& " of "&gPresFrames into cd fld "SlideNum"end updateCounton boldText theWords,findAllput cd fld "Text" into theTextif findAll is true thenrepeat with z = 1 to number of items of theWordsspinCursorput item z of theWords into thisWordif thisWord is in theText thenput length of thisWord -1 into tLput LineOffsetList(thisWord,theText) into theListrepeat with q = 1 to number of lines of theListget line q of theListset textStyle of char it to (it + tL) of cd fld "Text" to boldend repeatend ifend repeatelserepeat with z = 1 to number of items of theWordsif z mod 8 = 0 then spinCursorput item z of theWords into thisWordif thisWord is in theText thenget offset(return & thisWord,theText)set textStyle of char it to (it + length of thisWord -1) of cd fld "Text" to boldend ifend repeatend ifend boldTextfunction LineOffsetList findStr,searchStrput "" into theListput 0 into lastOffsetput searchStr into temprepeatget offset(findStr,temp)if it = 0 then exit repeatadd it to lastOffsetput lastOffset & return after theListdelete char 1 to it of tempend repeatreturn theListend LineOffsetListon playStill theMovie,theFrame,wdStyle,mLocglobal gCurStillMovie,UserNameif there is not a file theMovie thenput "" into gCurMovie1if userName = "Peter Meyer" thenanswer "‚Äú"& theMovie & "‚Äù was not found."else answer "The QuickTime movie was not found. Please mount the ARPL CD."exit playStillend ifif wdStyle = "" then put "rect" into wdStyleif mLoc = "" then put "Card" into mLocsubtract 1 from theFrame --(QT Movie Frames start at 0)put removePath(theMovie) into tempif temp is not gCurStillMovie then if there is a window gCurStillMovie then close window gCurStillMovieif there is a window gCurStillMovie thenset the CurrTime of window gCurStillMovie to (theFrame&",0")elseMovie theMovie,wdStyle,mLoc,"invisible","Floating"if the result is not "" thenanswer the resultexit to HyperCardend ifspinCursorput removePath(theMovie) into gCurStillMovieset the passMovieClick of window gCurStillMovie to falseset the badge of window gCurStillMovie to falseset the controllerVisible of window gCurStillMovie to falseset the CurrTime of window gCurStillMovie to (theFrame&",0")show window gCurStillMovieend ifend playStill</script>
  136. </background>
  137.